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] 
6 {2 1984 17:59 VAX-11 FORTRAN V3.4-56 P 1| 
-Sep- 217: - -4- age 
~8ep-19 4 90: iBiae DISKSVMSMASTER: CERF, SRCIBRIEF FOR: 1 ° 
800) , SUBROUTINE BRIEF (LUN,NUMREG,REGISTERS,REG_HERALD,NAME ,UNIT) 
0908 : Version: *v04-000' 
5 CARR eee EAA AAAAARAAAAAE REAR AAA EEE EAEE HEHEHE REEEE 
0006 C* & 
000 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ’ 
0008 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
Soy? te ALL RIGHTS RESERVED. . 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
BRt¢ C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * O( 
9016 Ce TRANSFERRED. * ot 
oi 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 0( 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 0¢ 
pogo ce CORPORATION. « a 
a 
Bose C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 0( 
ot fe SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * a 
® 
OC 
0096 TS ET Neb eT ER PRT I SER e RN TAME A, of 
C 
0028 C Oo 
0029 C 0( 
ets : AUTHOR BRIAN PORTER CREATION DATE 18-SEP-1979 et 
itt C O( 
et t4 ¢ Modified by: oe 
0035 v03-001 SAR0063 _ Sharon A. Reynolds, 20-Jun-1983 O¢ 
0036 C Changed carriage control in the ‘format’ statements OC 
0037 ¢ for use in ERF. s 
0039 C v02-002 BP0002 Brian Porter, 29-JUN-1981 OC 
9060 ¢ Removed code to display name and unit. a 
004¢ C v02-001 sr0001 Sharon Reynolds, 19-Nov-1980 ot 
004 C Added code to determine whether BRIEF was called from 
0044 «OC CRYPTK to fix the problem with the device registers ot 
Bee : being printed twice on the cryptk report. 
a ot 
0048 O¢ 
0049 1 
9050 Include 'SRC$:SYECOM.FOR /nolist’ | a 
$179 
Bi80 BYTE LUN | 
att BYTE NUMREG 
oibe INTEGER*2 UNIT | 
j 
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N 12 
BRIEF 16-Sep-1984 00:17:59 VAX=11 FORTRAN V¥3.4-56 ae 
eae 13 ibiae DISKSVMSMASTER: CERF. SRCIBRIEF . FOR; 1 
85 
INTEGER*4 REGISTERS (0: NUMREG=1) 
INTEGER*4 FIELD 
INTEGER®4 COMPRESSC 


CHARACTER*®(*) REG_HERALD(0:NUMREG=1) 
CHARACTER*3 NAME 


ENTRY BRIEF16 (LUN,NUMREG, REGISTERS ,REG_HERALD,NAME ,UNIT) 
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IF (NUMREG .GT. 12) NUMREG = 12 
CALL LINCHK (LUN,3) 


WRITEC(LUN,10) (REG HERALD(I),1 = O,NUMREG 


INTEGER*®4 COMPRESS4 
© 1) 
10 FORMAT(/" ", <NUMREG>(: ,T<(1#5) +8>, A<COMPRESSC (REG_HERALD(1))>),/) 


If (cryptk_flag) then 
Return 
Endif 


IF (NUMREG .GT. 12) NUMREG = 12 
CALL LINCHK (LUN,1) 


WRITE(LUN,20) (JIAND(REGISTERS 
FORMAT(' (I*5)+ 


RETURN 


),"FFFF'X),1 = O,NUMREG = 1) 


( 
20 »<NUMREG>(:,T<(] 8>,24.4)) 


IAW IUNINININININININ 3 3 3 OO OO "OOO 
FUNSSSSSVRARAN LS SaNenranwsoSwuwT 


ENTRY BRIEF16_A (LUN,NUMREG, REGISTERS) 
| 
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ENTRY BRIEF32 (LUN,NUMREG REGISTERS ,REG_HERALD,NAME ,UNIT) 


Se 


IF (NUMREG .GT. 7) NUMREG = 7 
CALL LINCHK (LUN,3) 
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13 
ip-5e -1984 00:17:59 VAX=11 FORTRAN V3.4-56 P 
=3eP 71 38e 90: lbiae DI SKSVMSMASTER: CERF, SRCIBRIEF FOR: 1 1. ? 


4 
tg WRITE(LUN,30) (REG HERALD (1) I = 0,NUMREG = 1) 
44 30 FORMAT(/' * <NUMREG>(:, T<(1 #9) 48> 
ce 1 A<COMPRESSC (REG_HERALD(I))>),/5 
4 
48 If (cryptk.flag) th 
Be ma" 
0250 Endif 
0 21 
0 38 ENTRY BRIEF32_A (LUN,NUMREG,REGISTERS) 
0255 
0256 
9 3 IF (NUMREG .GT. 7) NUMREG = 7 
0259 CALL LINCHK (LUN,1) 
0261 WRITE(LUN,40) (REGISTERS(I),1 = O,NUMREG = 1) 
O26¢ 40 FORMAT(" °,<NUMREG>(:,1<(1#9)+8>,728.8)) 
0264 RETURN 
0265 
0266 END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 803 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 106 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 148 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1101 


ENTRY POINTS 


Address Type Name Address Type Name Address Type Name Address Type Name 
0-00000000 BRIEF 0-00000023 BRIEF16 0-00000084 BRIEF16_A 0-00000125 BRIEF 32 
0-0 9000186 BRIEF32_A 

VARIABLES 
Address Type Name Address Type Name 


4 
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_ 
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04 J*4 Comane sss - \¢ Lei CPL 
CP_11780 - 15 Let CP.1 

- 14 L*4 CRYPTK FLAG os OD I*4 DEV 
- 1E L*l END_VACUE -0000001D L*1 EOF_ 
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13 
ib-8e -1984 2:17:59 VAX-11 FORTRAN V3.4-56 Pa 4 
=3e07 138% 90 lbiae DISK VMSMASTER: LER SRCIBRIEF FOR: 1 et 
FIELD :- 4 L*4 FORMS 
I - C L*l LINES 
LSTLUN AP- 48 L*1 LUN 
MAILBOX_ CHANNEL AP- 148 CHAR NAME 
NUMREG :- f CHAR OPTIONS 
PRINTER -00 I*4 RECCNT 
RECORD_SIZE AP-00 18a sf UNIT 
VALID_CLASS ¢ QOOO01A L*l VALID_CPU 
VALID_ENTRY -0000001C L*1 VALID_TYPE 
VOLUME _OUTPUT 
Address Type Name Bytes Dimensions 
AP-0000000C@ I*4 REGISTERS ee (Q:*) 
2-00000010@ CHAR REG_HERALD ee (0:*) 
LABELS 
Address Label Address Label Address Label Address Label 
1-00000008 10° 1-00000023 20° 1-00000039 30° 1-00000054 40° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 COMPRESSC LINCHK 


COMMAND QUALIFIERS 
FORTRAN /LIS=LISS$:BRIEF /OBJ=OBJ$:BRIEF MSRC$:BRIEF 


/ CHE CK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (WOSYRBOL § TRACEBACK) 


X ,NOSOURCE _F 
/SHOW= (NOPREPROCE SSOR , NOINCLODE ,MAP) 
/F77 /NOG_FLOATING /14 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 
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Run Time: g-§9 seconds 
Elapsed Time: -74 seconds 
Page Faults: 141 

Dynamic Memory: 187 pages 
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